home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 001-025 / scopedisk14 / tcell / vk.def < prev    next >
Text File  |  1995-03-18  |  2KB  |  34 lines
  1. (*===========================================================================*)
  2. (*                             Virus Check                                   *)
  3. (*===========================================================================*)
  4. (*                                                                           *)
  5. (*              This is the Module that does the actual checking             *)
  6. (*              for the Virus. It uses my own methode for checking           *)
  7. (*              for a virus. If you have a better one please let             *)
  8. (*              me know.The original was a program and was converted         *)
  9. (*              into a module.                                               *)
  10. (*                                                                           *)
  11. (*===========================================================================*)
  12. (*                                                                           *)
  13. (*              Original : Writen by David Siebert                           *)
  14. (*                         08-feb-88                                         *)
  15. (*===========================================================================*)
  16. (*                                                                           *)
  17. (*             Modified  : 02-may-88 David Siebert                           *)
  18. (*                         converted a program to module                     *)
  19. (*                         03-may-88 David Siebert                           *)
  20. (*                         found the bug in the program                      *)
  21. (*                                                                           *)
  22. (*===========================================================================*)
  23.  
  24. DEFINITION MODULE VK;
  25. FROM TrackDiskDevice IMPORT TDSector;
  26.  
  27.  
  28. TYPE
  29.   TDD = ARRAY [1..TDSector] OF CHAR;
  30.  
  31. PROCEDURE VCheck (Drive:LONGCARD;VAR MySec:TDD):BOOLEAN;
  32.  
  33. END VK.
  34.